home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Convert / convert-to-chromatic < prev    next >
Encoding:
Text File  |  1998-10-22  |  824 b   |  25 lines  |  [TEXT/MSWD]
  1. convert-to-chromatic symbols from-scale 
  2.  
  3. It is a lot easier to write functions if you don't have 
  4. to think about dealing with transposed symbols like 
  5. '(a (-1 b c) d) so with this function you can convert
  6. symbols to chromatic symbols for processing. 
  7. To get it right you need to state what tonality you 
  8. are converting from with from-scale.
  9. After processing you can always convert back again with
  10. change-to-new-tonality.
  11.  
  12. (convert-to-chromatic '(a (-2 b) = (-1 c d e) b = (-1 f d a) (-2 b)) '(blues1 c 5))
  13. ->(a b = egh d = jga b)
  14.  
  15. (this is just an example since symbol-transpose works fine
  16. with transposed notes)
  17.  
  18. (symbol-transpose 1 '(a b = egh d = jga b))
  19. ->(b c = fhi e = khb c) 
  20.  
  21. (change-to-new-tonality '(b c = fhi e = khb c) 
  22. '(chromatic c 5) '(blues1 c 5))
  23. ->((-2 b) (-1 b) = (c e -2 f) (-1 c) = (f e -2 b) (-1 b))
  24.  
  25.